unit UPessoa;

interface

type
  TPessoa = class
    private
      FCodigo: Integer;
      FNome: String;
      FIdade: Integer;

      function GetCodigo: Integer;
      function GetIdade: Integer;
      function GetNome: String;

      procedure SetCodigo(const Value: Integer);
      procedure SetIdade(const Value: Integer);
      procedure SetNome(const Value: String);
    protected

    public
      property Codigo: Integer read GetCodigo write SetCodigo;
      property Nome: String read GetNome write SetNome;
      property Idade: Integer read GetIdade write SetIdade;
  end;

implementation

{ TPessoa }

function TPessoa.GetCodigo: Integer;
begin
  Result := FCodigo;
end;

function TPessoa.GetIdade: Integer;
begin
  Result := FIdade;
end;

function TPessoa.GetNome: String;
begin
  Result := FNome;
end;

procedure TPessoa.SetCodigo(const Value: Integer);
begin
  FCodigo := Value;
end;

procedure TPessoa.SetIdade(const Value: Integer);
begin
  FIdade := Value;
end;

procedure TPessoa.SetNome(const Value: String);
begin
  FNome := Value;
end;

end.
 